home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / AMReminder / AMReminderMain.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  429 b   |  31 lines  |  [TEXT/CWIE]
  1. { AMReminderMain.p -- Main }
  2. { Created 10/30/98 1:03 PM by AppMaker }
  3.  
  4. Program AMReminder;
  5.  
  6. Uses
  7.     Types,
  8.     Quickdraw,
  9.     Controls,
  10.     Dialogs,
  11.     Events,
  12.     Lists,
  13.     Menus,
  14.     TextEdit,
  15.  
  16.     Globals,
  17.     EventLoop,
  18.     AMReminderApp;
  19.  
  20. {----------}
  21. Begin
  22.     gApplication := NewAMReminderApp;
  23.     Initialize;
  24.     if sysConfig.hasAppleEvents then begin
  25.         { wait for OApp, ODoc, or PDoc AppleEvent }
  26.     end else begin
  27.         gApplication.OpenApp;
  28.     end;
  29.     MainLoop;
  30. End.
  31.